Developer CD Series 1990 September: Essentials 4

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1990 September: Essentials 4 / ADC Developer CD (1990-09) [Essentials 4]_iso / Developer Essentials 4.iso / d e v e l o p / develop 4 code / A:ROSE / MCPMBƒ / ITER16.a < prev next >

MacBinary | 1989-08-30 | 2.1 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	System V 64-bit library `(executable/systemV64BitLibrary)`	ext	Unsupported
`1%`	dexvert	COFF Library `(other/coffLibrary)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Aug 30 12:51:23 1989, modified Wed Aug 30 12:51:23 1989, creator 'MPS ', type ASCII, 1483 bytes "ITER16.a" , at 0x64b 408 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 49 54 45 52 31 36 | 2e 61 00 00 00 00 00 00 |..ITER16|.a......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 7a 00 04 00 |.TEXTMPS| ...z...|
|00000050| 00 00 00 00 00 05 cb 00 | 00 01 98 a1 21 c1 0b a1 |........|....!...|
|00000060| 21 c1 0b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |!.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f1 92 00 00 |........|........|
|00000080| 0d 3b 20 50 41 53 43 41 | 4c 3a 20 66 75 6e 63 74 |.; PASCA|L: funct|
|00000090| 69 6f 6e 20 69 74 65 72 | 31 36 28 63 78 2c 63 79 |ion iter|16(cx,cy|
|000000a0| 2c 6e 6d 61 78 3a 20 69 | 6e 74 65 67 65 72 29 3a |,nmax: i|nteger):|
|000000b0| 20 69 6e 74 65 67 65 72 | 3b 0d 3b 0d 3b 20 69 74 | integer|;.;.; it|
|000000c0| 65 72 61 74 69 6f 6e 20 | 7a 20 3c 2d 20 7a 2a 7a |eration |z <- z*z|
|000000d0| 20 2b 20 63 20 20 28 20 | 7a 3d 28 78 2c 79 29 3b | + c  ( |z=(x,y);|
|000000e0| 20 63 3d 28 63 78 2c 63 | 79 29 20 29 0d 3b 20 78 | c=(cx,c|y) ).; x|
|000000f0| 20 3c 2d 20 78 2a 78 20 | 2d 20 79 2a 79 20 2b 20 | <- x*x |- y*y + |
|00000100| 63 78 0d 3b 20 79 20 3c | 2d 20 32 2a 78 2a 79 20 |cx.; y <|- 2*x*y |
|00000110| 2b 20 63 79 0d 3b 20 74 | 65 72 6d 69 6e 61 74 65 |+ cy.; t|erminate|
|00000120| 20 69 66 20 78 2a 78 20 | 2b 20 79 2a 79 20 3e 20 | if x*x |+ y*y > |
|00000130| 34 0d 0d 3b 20 63 6f 6d | 70 75 74 65 20 77 69 74 |4..; com|pute wit|
|00000140| 68 20 66 72 61 63 74 69 | 6f 6e 73 20 75 2f 44 2c |h fracti|ons u/D,|
|00000150| 20 76 2f 44 3b 20 75 2c | 76 20 69 6e 74 65 67 65 | v/D; u,|v intege|
|00000160| 72 3b 20 28 44 3d 38 31 | 39 32 3d 24 32 30 30 30 |r; (D=81|92=$2000|
|00000170| 29 0d 3b 20 70 72 6f 64 | 75 63 74 20 28 75 2f 44 |).; prod|uct (u/D|
|00000180| 29 2a 28 76 2f 44 29 20 | 3d 20 28 75 2a 76 2f 44 |)*(v/D) |= (u*v/D|
|00000190| 29 20 2f 20 44 20 28 6e | 6f 20 6f 76 65 72 66 6c |) / D (n|o overfl|
|000001a0| 6f 77 20 77 69 74 68 20 | 31 36 78 31 36 20 2d 3e |ow with |16x16 ->|
|000001b0| 20 33 32 20 62 69 74 73 | 29 0d 0d 49 54 45 52 31 | 32 bits|)..ITER1|
|000001c0| 36 09 09 50 52 4f 43 09 | 65 78 70 6f 72 74 0d 0d |6..PROC.|export..|
|000001d0| 53 74 61 63 6b 46 72 61 | 6d 65 09 52 45 43 4f 52 |StackFra|me.RECOR|
|000001e0| 44 09 7b 41 36 4c 69 6e | 6b 7d 2c 44 45 43 52 0d |D.{A6Lin|k},DECR.|
|000001f0| 66 6e 52 73 6c 74 09 09 | 44 53 2e 57 09 31 0d 50 |fnRslt..|DS.W.1.P|
|00000200| 61 72 61 6d 42 65 67 69 | 6e 09 45 51 55 09 2a 09 |aramBegi|n.EQU.*.|
|00000210| 0d 63 78 09 09 44 53 2e | 57 09 31 0d 63 79 09 09 |.cx..DS.|W.1.cy..|
|00000220| 44 53 2e 57 09 31 0d 6e | 6d 61 78 09 09 44 53 2e |DS.W.1.n|max..DS.|
|00000230| 57 09 31 0d 50 61 72 61 | 6d 53 69 7a 65 09 45 51 |W.1.Para|mSize.EQ|
|00000240| 55 09 50 61 72 61 6d 42 | 65 67 69 6e 2d 2a 0d 52 |U.ParamB|egin-*.R|
|00000250| 65 74 41 64 64 72 20 09 | 44 53 2e 4c 09 31 0d 41 |etAddr .|DS.L.1.A|
|00000260| 36 4c 69 6e 6b 09 09 44 | 53 2e 4c 09 31 0d 2a 20 |6Link..D|S.L.1.* |
|00000270| 4c 6f 63 61 6c 31 09 44 | 53 2e 7b 73 69 7a 65 7d |Local1.D|S.{size}|
|00000280| 0d 2a 20 4c 6f 63 61 6c | 32 09 44 53 2e 7b 73 69 |.* Local|2.DS.{si|
|00000290| 7a 65 7d 0d 2a 20 4c 6f | 63 61 6c 4e 09 44 53 2e |ze}.* Lo|calN.DS.|
|000002a0| 7b 73 69 7a 65 7d 0d 4c | 6f 63 61 6c 53 69 7a 65 |{size}.L|ocalSize|
|000002b0| 09 45 51 55 20 09 2a 0d | 09 09 45 4e 44 52 0d 0d |.EQU .*.|..ENDR..|
|000002c0| 20 09 57 49 54 48 09 53 | 74 61 63 6b 46 72 61 6d | .WITH.S|tackFram|
|000002d0| 65 09 09 3b 20 63 6f 76 | 65 72 20 6f 75 72 20 6c |e..; cov|er our l|
|000002e0| 6f 63 61 6c 20 73 74 61 | 63 6b 20 66 72 61 6d 65 |ocal sta|ck frame|
|000002f0| 0d 09 4c 49 4e 4b 09 41 | 36 2c 23 4c 6f 63 61 6c |..LINK.A|6,#Local|
|00000300| 53 69 7a 65 09 09 3b 20 | 61 6c 6c 6f 63 61 74 65 |Size..; |allocate|
|00000310| 20 6f 75 72 20 6c 6f 63 | 61 6c 20 73 74 61 63 6b | our loc|al stack|
|00000320| 20 66 72 61 6d 65 0d 0d | 09 4d 4f 56 45 4d 2e 4c | frame..|.MOVEM.L|
|00000330| 09 44 32 2d 44 37 2c 2d | 28 53 50 29 0d 09 43 4c |.D2-D7,-|(SP)..CL|
|00000340| 52 2e 4c 09 44 30 0d 09 | 43 4c 52 2e 4c 09 44 31 |R.L.D0..|CLR.L.D1|
|00000350| 0d 09 43 4c 52 2e 4c 09 | 44 37 0d 09 4d 4f 56 45 |..CLR.L.|D7..MOVE|
|00000360| 09 63 78 28 41 36 29 2c | 44 30 0d 09 4d 4f 56 45 |.cx(A6),|D0..MOVE|
|00000370| 09 63 79 28 41 36 29 2c | 44 31 0d 09 4d 4f 56 45 |.cy(A6),|D1..MOVE|
|00000380| 09 6e 6d 61 78 28 41 36 | 29 2c 44 37 0d 09 43 4c |.nmax(A6|),D7..CL|
|00000390| 52 2e 4c 09 44 32 09 3b | 20 75 3a 20 73 75 70 70 |R.L.D2.;| u: supp|
|000003a0| 6f 73 65 20 3d 20 78 2a | 78 0d 09 43 4c 52 2e 4c |ose = x*|x..CLR.L|
|000003b0| 09 44 33 09 3b 20 76 3a | 20 73 75 70 70 6f 73 65 |.D3.; v:| suppose|
|000003c0| 20 3d 20 79 2a 79 0d 09 | 43 4c 52 2e 4c 09 44 34 | = y*y..|CLR.L.D4|
|000003d0| 09 3b 20 77 3a 20 73 75 | 70 70 6f 73 65 20 3d 20 |.; w: su|ppose = |
|000003e0| 32 78 79 0d 09 43 4c 52 | 2e 4c 09 44 35 09 3b 20 |2xy..CLR|.L.D5.; |
|000003f0| 78 3a 20 69 6e 69 74 69 | 61 6c 20 3d 20 30 0d 09 |x: initi|al = 0..|
|00000400| 43 4c 52 2e 4c 09 44 36 | 09 3b 20 79 3a 20 69 6e |CLR.L.D6|.; y: in|
|00000410| 69 74 69 61 6c 20 3d 20 | 30 0d 09 0d 40 31 09 4d |itial = |0...@1.M|
|00000420| 4f 56 45 2e 4c 09 44 30 | 2c 44 35 09 3b 0d 09 41 |OVE.L.D0|,D5.;..A|
|00000430| 44 44 2e 4c 09 44 32 2c | 44 35 0d 09 53 55 42 2e |DD.L.D2,|D5..SUB.|
|00000440| 4c 09 44 33 2c 44 35 09 | 3b 20 78 20 3d 20 75 20 |L.D3,D5.|; x = u |
|00000450| 2d 20 76 20 2b 20 63 78 | 0d 09 09 0d 09 4d 4f 56 |- v + cx|.....MOV|
|00000460| 45 2e 4c 09 44 31 2c 44 | 36 0d 09 41 44 44 2e 4c |E.L.D1,D|6..ADD.L|
|00000470| 09 44 34 2c 44 36 09 3b | 20 79 20 3d 20 77 20 2b |.D4,D6.;| y = w +|
|00000480| 20 63 79 0d 0d 09 4d 4f | 56 45 09 44 36 2c 44 34 | cy...MO|VE.D6,D4|
|00000490| 0d 09 4d 55 4c 53 09 44 | 35 2c 44 34 09 3b 20 77 |..MULS.D|5,D4.; w|
|000004a0| 3a 3d 78 79 0d 09 41 53 | 52 2e 4c 09 23 36 2c 44 |:=xy..AS|R.L.#6,D|
|000004b0| 34 0d 09 41 53 52 2e 4c | 09 23 36 2c 44 34 09 3b |4..ASR.L|.#6,D4.;|
|000004c0| 20 77 20 3d 20 32 78 79 | 2f 64 0d 09 0d 09 4d 4f | w = 2xy|/d....MO|
|000004d0| 56 45 09 44 35 2c 44 32 | 0d 09 4d 55 4c 53 09 44 |VE.D5,D2|..MULS.D|
|000004e0| 35 2c 44 32 0d 09 41 53 | 52 2e 4c 09 23 37 2c 44 |5,D2..AS|R.L.#7,D|
|000004f0| 32 0d 09 41 53 52 2e 4c | 09 23 36 2c 44 32 09 3b |2..ASR.L|.#6,D2.;|
|00000500| 20 75 20 3d 20 78 2a 78 | 2f 64 0d 09 0d 09 4d 4f | u = x*x|/d....MO|
|00000510| 56 45 09 44 36 2c 44 33 | 0d 09 4d 55 4c 53 09 44 |VE.D6,D3|..MULS.D|
|00000520| 36 2c 44 33 0d 09 41 53 | 52 2e 4c 09 23 37 2c 44 |6,D3..AS|R.L.#7,D|
|00000530| 33 0d 09 41 53 52 2e 4c | 09 23 36 2c 44 33 09 3b |3..ASR.L|.#6,D3.;|
|00000540| 20 76 20 3d 20 79 2a 79 | 2f 64 0d 09 0d 09 4d 4f | v = y*y|/d....MO|
|00000550| 56 45 2e 4c 09 44 32 2c | 44 35 09 3b 20 75 2b 76 |VE.L.D2,|D5.; u+v|
|00000560| 20 3e 20 34 64 20 3f 0d | 09 41 44 44 2e 4c 09 44 | > 4d ?.|.ADD.L.D|
|00000570| 33 2c 44 35 0d 09 53 55 | 42 2e 4c 09 23 24 38 30 |3,D5..SU|B.L.#$80|
|00000580| 30 30 2c 44 35 0d 09 42 | 50 4c 2e 53 09 65 78 69 |00,D5..B|PL.S.exi|
|00000590| 74 0d 09 44 42 52 41 09 | 44 37 2c 40 31 0d 0d 65 |t..DBRA.|D7,@1..e|
|000005a0| 78 69 74 3a 09 4e 45 47 | 09 44 37 0d 09 41 44 44 |xit:.NEG|.D7..ADD|
|000005b0| 09 6e 6d 61 78 28 41 36 | 29 2c 44 37 0d 09 53 55 |.nmax(A6|),D7..SU|
|000005c0| 42 51 09 23 31 2c 44 37 | 0d 09 4d 4f 56 45 09 44 |BQ.#1,D7|..MOVE.D|
|000005d0| 37 2c 66 6e 72 73 6c 74 | 28 41 36 29 0d 0d 09 4d |7,fnrslt|(A6)...M|
|000005e0| 4f 56 45 4d 2e 4c 20 28 | 53 50 29 2b 2c 44 32 2d |OVEM.L (|SP)+,D2-|
|000005f0| 44 37 0d 20 09 55 4e 4c | 4b 09 41 36 0d 20 09 4d |D7. .UNL|K.A6. .M|
|00000600| 4f 56 45 41 2e 4c 09 28 | 53 50 29 2b 2c 41 30 0d |OVEA.L.(|SP)+,A0.|
|00000610| 20 09 41 44 44 41 2e 4c | 09 23 50 61 72 61 6d 53 | .ADDA.L|.#ParamS|
|00000620| 69 7a 65 2c 53 50 0d 20 | 09 4a 4d 50 09 28 41 30 |ize,SP. |.JMP.(A0|
|00000630| 29 0d 0d 20 09 45 4e 44 | 57 49 54 48 0d 09 45 4e |).. .END|WITH..EN|
|00000640| 44 50 52 4f 43 0d 0d 09 | 45 4e 44 00 00 00 00 00 |DPROC...|END.....|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 52 | 00 00 00 52 00 00 00 46 |.......R|...R...F|
|00000690| 2e 68 6e 67 65 73 20 56 | 20 31 2e 31 41 34 00 00 |.hnges V| 1.1A4..|
|000006a0| 00 00 00 00 7f fe 84 00 | 00 0c 00 00 54 45 58 54 |........|....TEXT|
|000006b0| 08 49 54 45 52 31 36 2e | 61 45 02 00 00 00 54 45 |.ITER16.|aE....TE|
|000006c0| 58 54 4d 50 53 20 01 00 | 00 7a 00 04 00 00 00 00 |XTMPS ..|.z......|
|000006d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 7a 00 04 |..TEXTMP|S ...z..|
|000006e0| 00 00 00 e6 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 9d 1e ee d8 00 00 | 05 cb 00 00 01 98 00 00 |........|........|
|00000700| 00 00 00 00 7f fe 84 00 | 00 0c 00 00 57 4f 52 44 |........|....WORD|
|00000710| 60 00 00 03 ff ff 00 00 | 24 39 13 41 43 4b 20 43 |`.......|$9.ACK C|
|00000720| 68 61 6e 67 65 73 20 56 | 20 31 2e 31 41 32 00 00 |hanges V| 1.1A2..|
|00000730| 00 00 00 00 7f fe 84 00 | 00 0c 00 00 57 4f 52 44 |........|....WORD|
|00000740| 60 00 00 00 01 20 00 03 | ff ff 00 00 13 4b 03 4a |`.... ..|.....K.J|
|00000750| 2e 61 20 33 2e 30 00 d2 | 00 96 01 24 00 84 00 d4 |.a 3.0..|...$....|
|00000760| 01 22 7f ff 00 85 00 d3 | 00 d4 01 22 01 23 00 00 |."......|...".#..|
|00000770| 00 86 00 d2 60 00 00 03 | ff ff 00 00 02 04 09 41 |....`...|.......A|
|00000780| 00 00 00 02 01 e0 00 00 | 00 48 00 09 4d 6f 6e 61 |........|.H..Mona|
|00000790| 63 6f 00 00 00 82 00 00 | 00 14 00 01 3b 20 00 0a |co......|....; ..|
|000007a0| 00 87 00 09 00 92 00 81 | 00 00 00 00 00 06 00 08 |........|........|
|000007b0| 00 34 00 0c 01 62 02 1b | 00 34 00 0c 01 62 02 1b |.4...b..|.4...b..|
|000007c0| a1 21 7a bb 00 00 05 b3 | 00 00 05 b3 00 00 05 3d |.!z.....|.......=|
|000007d0| 01 00 00 00 01 00 00 00 | 01 52 00 00 00 52 00 00 |........|.R...R..|
|000007e0| 00 46 00 5c ac d4 05 26 | 00 00 00 1c 00 46 00 01 |.F.\...&|.....F..|
|000007f0| 45 51 45 44 00 00 00 12 | 4d 50 53 52 00 00 00 1e |EQED....|MPSR....|
|00000800| 03 eb ff ff 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00000810| 00 00 00 06 00 5d e5 e0 | 00 00 00 00 00 00 00 00 |.....]..|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+